home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1996 August
/
Software of the Month Club 1996 August.iso
/
pc
/
dos
/
dtp
/
fractint
/
new19.key
< prev
next >
Wrap
Text File
|
1995-03-08
|
2KB
|
184 lines
;; Demo of new Fractint version 19 features
;; Created by Jonathan Osuch
;;
;; This demo goes through once and then exits.
;; The new bailout tests are demonstrated
;; The browser feature is demonstrated
;; The new outside=atan is demonstrated
;; The extended bailout value is demonstrated
;; The new ant fractal type is demonstrated
WAIT 5
;; Set up first image
ENTER
WAIT 1.0
DOWN * 2 ;; "x"
"x"
WAIT 1.0
DOWN
"y" ;; turn on floating point
;; comment out above the line if floating point is too slow
;; note that if you do, bailout=40000 will really be bailout=127
;; the integer limit for bailout
DOWN * 2
"0" ;; inside = 0
DOWN * 2
"new19001"
WAIT 1.0
ENTER
;; Set up the browse parameters for demo
DOWN * 7 ;; Ctrl-B
2
WAIT 1.0
DOWN
"n" ;; Don't ask about video mode
WAIT 1.0
DOWN * 6
"new19*.gif"
WAIT 1.0
ENTER
DOWN * 4 ;; "z"
"z"
WAIT 1.0
DOWN * 2
"r" ;; real
WAIT 2.0
ENTER
;; Make the first image
DELETE
WAIT 2.0
F3
CALCWAIT
MESSAGE 2bailout test=real
"s"
CALCWAIT
;; Zoom in and save are for later browser use
PAGEUP * 23
WAIT 1.0
1115 * 19
WAIT 1.0
ENTER
CALCWAIT
"s"
CALCWAIT
PAGEUP * 10
WAIT 1.0
ENTER
CALCWAIT
"s"
CALCWAIT
"t"
WAIT 1.0
ENTER
DOWN * 2
"i" ;; imag
WAIT 2.0
ENTER
CALCWAIT
MESSAGE 2bailout test=imag
PAGEUP * 25
1141 * 6
1115 * 7
WAIT 2
ENTER
CALCWAIT
"s"
CALCWAIT
"t"
WAIT 1.0
ENTER
WAIT 1.0
DOWN * 2
"o" ;; or
WAIT 2.0
ENTER
CALCWAIT
MESSAGE 2bailout test=or
"z"
DOWN * 2
"a" ;; and
WAIT 2.0
ENTER
CALCWAIT
MESSAGE 2bailout test=and
;; Start outside=atan demo
"x"
DOWN * 2
"500"
DOWN * 2
"atan"
WAIT 2.0
ENTER
"c"
"l"
"chroma"
WAIT 1.0
ENTER
ESC
CALCWAIT
MESSAGE 2outside=atan
"z"
UP
"40000"
ENTER
CALCWAIT
MESSAGE 2bailout=40000
Startbrowse:
;; Start demo of browse features
"r"
"new19001.gif"
ENTER
CALCWAIT
"l"
CALCWAIT
WAIT 2.0
ENTER
CALCWAIT
WAIT 2.0
"l"
CALCWAIT
WAIT 2.0
ENTER
CALCWAIT
WAIT 2.0
"\"
CALCWAIT
WAIT 2.0
"\"
CALCWAIT
WAIT 1.0
"l"
CALCWAIT
WAIT 2.0
RIGHT
WAIT 2.0
RIGHT
WAIT 2.0
ENTER
CALCWAIT
WAIT 5.0
"t"
"julia"
ENTER
DOWN * 2
"m" ;; mod
ENTER
CALCWAIT
;; Start of ant demo
1 ;; ctrl-a
;;"1101"
WAIT 1.0
ENTER
WAIT 20.0
MESSAGE 2type=ant
End:
ESC
ESC
"y"